R Notebook

library(dplyr)
library(plotly)

aegypti <- read.csv("aegypti_albopictus.csv", header = TRUE, sep = ",")

# filtering
yr04 <- aegypti %>%
  select(VECTOR, Y, X, COUNTRY, YEAR) %>%
  filter(YEAR == 2004)

yr04_p <- yr04 %>%
 plot_mapbox(x= ~X, y =~Y, split =~VECTOR, mode = "scattermapbox", hoverinfo = 'name') %>%
  layout(title = 'Scatter',
         font = list(color='white'),
         plot_bgcolor = '#191A1A', paper_bgcolor = '#191A1A',
         mapbox = list(style = 'light'),
         legend = list(orientation = 'h',
                       font = list(size = 8)),
         margin = list(l = 25, r = 25,
                       b = 25, t = 25,
                       pad = 2))

yr04_p